#################### Data viz

library(arules)
library(arulesViz)
library(datasets)

data("Groceries")
class(Groceries)

inspect(head(Groceries, 5))
#or
inspect(Groceries[1:5])

size(head(Groceries))

itemFrequencyPlot(Groceries, topN=10, type="absolute", main="Item Frequency") # plot frequent items

groceryrules = apriori (Groceries, parameter = list(supp = 0.001, 
                                                    conf = 0.8)) # Min Support as 0.001, confidence as 0.8.


plot(groceryrules)

library(colorspace) # for sequential_hcl
plot(groceryrules, control = list(col=sequential_hcl(100)))

subrules <- subset(groceryrules, confidence>.9)
subrules
## 2D matrix with shading
plot(subrules, method="matrix")

subrules2 <- subset(groceryrules, lift>6)
subrules2
## 2D matrix with shading
plot(subrules2, method="matrix")

plot(subrules2, method="graph")